(defparameter *fixed-state*
	'(
		(phase1)
	)
)

(defparameter *fixed-state-need-loc*
	'(
	)
)

(defun gen-state-lotsgoals (schema)
	(let ((loc (choose-loc)))
		(list `(,schema ,loc) ;; goal
			'() ;; state - no state
		)
	)
)

(defun choose-loc (&optional (fromlist *possible-locs*))
	(list-choose-uniform fromlist)
)

(defparameter *possible-locs*
	'(nowhere)
)

